home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / packmsg2.zip / PACKMSGS.BAT
DOS Batch File  |  1990-10-05  |  28KB  |  751 lines
  1. rem <<<<<<<<<<<<<<<< PACKMSGS.BAT using PCBPACK.EXE >>>>>>>>>>>>>>>>>>>>>>>>>
  2. rem <<<<<<<<<<<<<<<<<<<<< Compliments of BEC BBS >>>>>>>>>>>>>>>>>>>>>>>
  3. rem <<<<<<<<<<<<<< Springfield, IL, (217) 789-5970 HST >>>>>>>>>>>>>>>>>
  4. rem <<<<<<<<<<<<<<<<<<<<< SYSOP is George Lollar >>>>>>>>>>>>>>>>>>>>>>>
  5. rem
  6. rem   You can use command-line parameters to start and stop pack with
  7. rem   particular AREA numbers.  EX:  "PACKMSGS 1 8" will start at AREA:1
  8. rem   and end with AREA:8 .... otherwise, no command-line parameters will
  9. rem   pack the whole message areas covered in PACKMSGS.BAT .....
  10. rem
  11. rem   The number of "/DAYS:" and "/MAXMSGS:" is arbitrary and based upon
  12. rem   you analyzing your PACKMSGS.LOG occasionally in order to make
  13. rem   adjustments.  I usually start a new conference out at 30 days and
  14. rem   300 messages and go from there.
  15. rem
  16. rem   You are welcome to change and rearrange this batch file as you see
  17. rem   fit and as will be necessary to run on your system.
  18. rem
  19.  
  20. echo off
  21. if exist PACKMSGS.LOG COPY PACKMSGS.LOG PACKMSGS.OLD
  22. if exist PACKMSGS.LOG DEL PACKMSGS.LOG
  23. goto F%1
  24.  
  25. :F
  26.  
  27. :F0
  28. rem     MAIN            C:\PCB\MAIN\MSGS
  29. PCBPACK /AREA:0  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:1000 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  30. IF ERRORLEVEL 99 GOTO ERROR
  31. IF L%2 == L0 GOTO EXIT
  32.  
  33. :F1
  34. rem     SYSOPS          G:\RNET\SYSOPS\MSGS
  35. PCBPACK /AREA:1  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:7 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  36. IF ERRORLEVEL 99 GOTO ERROR
  37. IF L%2 == L1 GOTO EXIT
  38.  
  39. :F2
  40. rem     FOR SALE        E:\RNET\4_SALE\MSGS
  41. PCBPACK /AREA:2  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:5 /MAXMSGS:500 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  42. IF ERRORLEVEL 99 GOTO ERROR
  43. IF L%2 == L2 GOTO EXIT
  44.  
  45. :F3
  46. rem     DEBATE          E:\RNET\DEBATE\MSGS
  47. PCBPACK /AREA:3  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:5 /MAXMSGS:500 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  48. IF ERRORLEVEL 99 GOTO ERROR
  49. IF L%2 == L3 GOTO EXIT
  50.  
  51. :F4
  52. rem     COMMON          E:\RNET\COMMON\MSGS
  53. PCBPACK /AREA:4  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:5 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  54. IF ERRORLEVEL 99 GOTO ERROR
  55. IF L%2 == L4 GOTO EXIT
  56.  
  57. :F5
  58. rem     PCB HINTS       E:\RNET\PCBHINTS\MSGS
  59. PCBPACK /AREA:5  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:16 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  60. IF ERRORLEVEL 99 GOTO ERROR
  61. IF L%2 == L5 GOTO EXIT
  62.  
  63. :F6
  64. rem     TECHNICAL       E:\RNET\TCHNICAL\MSGS
  65. PCBPACK /AREA:6  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:5 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  66. IF ERRORLEVEL 99 GOTO ERROR
  67. IF L%2 == L6 GOTO EXIT
  68.  
  69. :F7
  70. rem     SPORTS          E:\RNET\SPORTS\MSGS
  71. PCBPACK /AREA:7  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  72. IF ERRORLEVEL 99 GOTO ERROR
  73. IF L%2 == L7 GOTO EXIT
  74.  
  75. :F8
  76. rem     COMMUNICATION   E:\RNET\COMM\MSGS
  77. PCBPACK /AREA:8  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  78. IF ERRORLEVEL 99 GOTO ERROR
  79. IF L%2 == L8 GOTO EXIT
  80.  
  81. :F9
  82. rem     PROGRAMMER      E:\RNET\PRGRAMR\MSGS
  83. PCBPACK /AREA:9  /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  84. IF ERRORLEVEL 99 GOTO ERROR
  85. IF L%2 == L9 GOTO EXIT
  86.  
  87. :F10
  88. rem     MEDICAL         E:\RNET\MEDICAL\MSGS
  89. PCBPACK /AREA:10 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  90. IF ERRORLEVEL 99 GOTO ERROR
  91. IF L%2 == L10 GOTO EXIT
  92.  
  93. :F11
  94. rem     SOFTWARE        E:\RNET\SOFTWARE\MSGS
  95. PCBPACK /AREA:11 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  96. IF ERRORLEVEL 99 GOTO ERROR
  97. IF L%2 == L11 GOTO EXIT
  98.  
  99. :F12
  100. rem     HARD DISK       E:\RNET\HARDDISK\MSGS
  101. PCBPACK /AREA:12 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  102. IF ERRORLEVEL 99 GOTO ERROR
  103. IF L%2 == L12 GOTO EXIT
  104.  
  105. :F13
  106. rem     HAM RADIO       E:\RNET\HAM\MSGS
  107. PCBPACK /AREA:13 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  108. IF ERRORLEVEL 99 GOTO ERROR
  109. IF L%2 == L13 GOTO EXIT
  110.  
  111. :F14
  112. rem     LAN             E:\RNET\LAN\MSGS
  113. PCBPACK /AREA:14 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  114. IF ERRORLEVEL 99 GOTO ERROR
  115. IF L%2 == L14 GOTO EXIT
  116.  
  117. :F15
  118. rem     LEGAL           E:\RNET\LEGAL\MSGS
  119. PCBPACK /AREA:15 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:7 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  120. IF ERRORLEVEL 99 GOTO ERROR
  121. IF L%2 == L15 GOTO EXIT
  122.  
  123. :F16
  124. rem     DATABASE        E:\RNET\DATABASE\MSGS
  125. PCBPACK /AREA:16 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  126. IF ERRORLEVEL 99 GOTO ERROR
  127. IF L%2 == L16 GOTO EXIT
  128.  
  129. :F17
  130. rem     US ROBOTICS     E:\RNET\USR\MSGS
  131. PCBPACK /AREA:17 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  132. IF ERRORLEVEL 99 GOTO ERROR
  133. IF L%2 == L17 GOTO EXIT
  134.  
  135. :F18
  136. rem     UPLINK          E:\RNET\UPLINK\MSGS
  137. PCBPACK /AREA:18 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:5 /MAXMSGS:400 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  138. IF ERRORLEVEL 99 GOTO ERROR
  139. IF L%2 == L18 GOTO EXIT
  140.  
  141. :F19
  142. rem     GRAPHICS        G:\RNET\GRAPHICS\MSGS
  143. PCBPACK /AREA:19 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:45 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  144. IF ERRORLEVEL 99 GOTO ERROR
  145. IF L%2 == L19 GOTO EXIT
  146.  
  147. :F20
  148. rem     WINDOWS         G:\RNET\WINDOWS\MSGS
  149. PCBPACK /AREA:20 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:7 /MAXMSGS:500 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  150. IF ERRORLEVEL 99 GOTO ERROR
  151. IF L%2 == L20 GOTO EXIT
  152.  
  153. :F21
  154. rem     RBBS-PC         E:\RNET\RBBS-PC\MSGS
  155. PCBPACK /AREA:21 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  156. IF ERRORLEVEL 99 GOTO ERROR
  157. IF L%2 == L21 GOTO EXIT
  158.  
  159. :F22
  160. rem     LAPTOP          G:\RNET\LAPTOP\MSGS
  161. PCBPACK /AREA:22 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  162. IF ERRORLEVEL 99 GOTO ERROR
  163. IF L%2 == L22 GOTO EXIT
  164.  
  165. :F23
  166. rem     FINANCIAL       G:\RNET\FINANCE\MSGS
  167. PCBPACK /AREA:23 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  168. IF ERRORLEVEL 99 GOTO ERROR
  169. IF L%2 == L23 GOTO EXIT
  170.  
  171. :F24
  172. rem     VIDEO EXCHANGE  G:\RNET\VIDEO_EX\MSGS
  173. PCBPACK /AREA:24 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  174. IF ERRORLEVEL 99 GOTO ERROR
  175. IF L%2 == L24 GOTO EXIT
  176.  
  177. :F25
  178. rem     HANDYMAN        G:\RNET\HANDYMAN\MSGS
  179. PCBPACK /AREA:25 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  180. IF ERRORLEVEL 99 GOTO ERROR
  181. IF L%2 == L25 GOTO EXIT
  182.  
  183. :F26
  184. rem     JOB BANK        G:\RNET\JOB_BANK\MSGS
  185. PCBPACK /AREA:26 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:240 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  186. IF ERRORLEVEL 99 GOTO ERROR
  187. IF L%2 == L26 GOTO EXIT
  188.  
  189. :F27
  190. rem     PETS            G:\RNET\PETS\MSGS
  191. PCBPACK /AREA:27 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  192. IF ERRORLEVEL 99 GOTO ERROR
  193. IF L%2 == L27 GOTO EXIT
  194.  
  195. :F28
  196. rem     HOBBIES         G:\RNET\HOBBIES\MSGS
  197. PCBPACK /AREA:28 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:60 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  198. IF ERRORLEVEL 99 GOTO ERROR
  199. IF L%2 == L28 GOTO EXIT
  200.  
  201. :F29
  202. rem     ENTERTAINMENT   G:\RNET\ENTERTAI\MSGS
  203. PCBPACK /AREA:29 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:7 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  204. IF ERRORLEVEL 99 GOTO ERROR
  205. IF L%2 == L29 GOTO EXIT
  206.  
  207. :F30
  208. rem     PKWARE          E:\RNET\PKWARE\MSGS
  209. PCBPACK /AREA:30 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:60 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  210. IF ERRORLEVEL 99 GOTO ERROR
  211. IF L%2 == L30 GOTO EXIT
  212.  
  213. :F31
  214. rem     QMODEM          G:\RNET\QMODEM\MSGS
  215. PCBPACK /AREA:31 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:5 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  216. IF ERRORLEVEL 99 GOTO ERROR
  217. IF L%2 == L31 GOTO EXIT
  218.  
  219. :F32
  220. rem     IBM             G:\RNET\IBM\MSGS
  221. PCBPACK /AREA:32 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  222. IF ERRORLEVEL 99 GOTO ERROR
  223. IF L%2 == L32 GOTO EXIT
  224.  
  225. :F33
  226. rem     WORD PERFECT    G:\RNET\WORD_PER\MSGS
  227. PCBPACK /AREA:33 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  228. IF ERRORLEVEL 99 GOTO ERROR
  229. IF L%2 == L33 GOTO EXIT
  230.  
  231. :F34
  232. rem     DESQVIEW        E:\RNET\DESQVIEW\MSGS
  233. PCBPACK /AREA:34 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  234. IF ERRORLEVEL 99 GOTO ERROR
  235. IF L%2 == L34 GOTO EXIT
  236.  
  237. :F35
  238. rem     VETERANS        G:\RNET\VETERANS\MSGS
  239. PCBPACK /AREA:35 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  240. IF ERRORLEVEL 99 GOTO ERROR
  241. IF L%2 == L35 GOTO EXIT
  242.  
  243. :F36
  244. rem     HAYES           G:\RNET\HAYES\MSGS
  245. PCBPACK /AREA:36 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  246. IF ERRORLEVEL 99 GOTO ERROR
  247. IF L%2 == L36 GOTO EXIT
  248.  
  249. :F37
  250. rem     LOTUS           G:\RNET\LOTUS\MSGS
  251. PCBPACK /AREA:37 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  252. IF ERRORLEVEL 99 GOTO ERROR
  253. IF L%2 == L37 GOTO EXIT
  254.  
  255. :F38
  256. rem     ISSM            E:\RNET\ISSM\MSGS
  257. PCBPACK /AREA:38 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  258. IF ERRORLEVEL 99 GOTO ERROR
  259. IF L%2 == L38 GOTO EXIT
  260.  
  261. :F39
  262. rem     TELIX           G:\RNET\TELIX\MSGS
  263. PCBPACK /AREA:39 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  264. IF ERRORLEVEL 99 GOTO ERROR
  265. IF L%2 == L39 GOTO EXIT
  266.  
  267. :F40
  268. rem     CUISINE         E:\RNET\CUISINE\MSGS
  269. PCBPACK /AREA:40 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:7 /MAXMSGS:400 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  270. IF ERRORLEVEL 99 GOTO ERROR
  271. IF L%2 == L40 GOTO EXIT
  272.  
  273. :F41
  274. rem     UNIX            E:\RNET\UNIX\MSGS
  275. PCBPACK /AREA:41 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  276. IF ERRORLEVEL 99 GOTO ERROR
  277. IF L%2 == L41 GOTO EXIT
  278.  
  279. :F42
  280. rem     RELIGION        E:\RNET\RELIGION\MSGS
  281. PCBPACK /AREA:42 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:400 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  282. IF ERRORLEVEL 99 GOTO ERROR
  283. IF L%2 == L42 GOTO EXIT
  284.  
  285. :F43
  286. rem     POLITICS        E:\RNET\POLITICS\MSGS
  287. PCBPACK /AREA:43 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  288. IF ERRORLEVEL 99 GOTO ERROR
  289. IF L%2 == L43 GOTO EXIT
  290.  
  291. :F44
  292. rem     PHILOSOPHY      E:\RNET\PHILOSPH\MSGS
  293. PCBPACK /AREA:44 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  294. IF ERRORLEVEL 99 GOTO ERROR
  295. IF L%2 == L44 GOTO EXIT
  296.  
  297. :F45
  298. rem     WOMENS ISSUES   E:\RNET\WOMEN\MSGS
  299. PCBPACK /AREA:45 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  300. IF ERRORLEVEL 99 GOTO ERROR
  301. IF L%2 == L45 GOTO EXIT
  302.  
  303. :F46
  304. rem     IDC             E:\RNET\IDC\MSGS
  305. PCBPACK /AREA:46 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  306. IF ERRORLEVEL 99 GOTO ERROR
  307. IF L%2 == L46 GOTO EXIT
  308.  
  309. :F47
  310. rem     GLOBAL          E:\RNET\GLOBAL\MSGS
  311. PCBPACK /AREA:47 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:400 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  312. IF ERRORLEVEL 99 GOTO ERROR
  313. IF L%2 == L47 GOTO EXIT
  314.  
  315. :F48
  316. rem     NEW USERS       E:\RNET\NEWUSERS\MSGS
  317. PCBPACK /AREA:48 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  318. IF ERRORLEVEL 99 GOTO ERROR
  319. IF L%2 == L48 GOTO EXIT
  320.  
  321. :F49
  322. rem     SCIENCE FICTION E:\RNET\SCI_FI\MSGS
  323. PCBPACK /AREA:49 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  324. IF ERRORLEVEL 99 GOTO ERROR
  325. IF L%2 == L49 GOTO EXIT
  326.  
  327. :F50
  328. rem     SATELLITE       E:\RNET\SATELITE\MSGS
  329. PCBPACK /AREA:50 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  330. IF ERRORLEVEL 99 GOTO ERROR
  331. IF L%2 == L50 GOTO EXIT
  332.  
  333. :F51
  334. rem     EDUCATION       E:\RNET\EDUCATE\MSGS
  335. PCBPACK /AREA:51 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  336. IF ERRORLEVEL 99 GOTO ERROR
  337. IF L%2 == L51 GOTO EXIT
  338.  
  339. :F52
  340. rem     OMEN TECH.      E:\RNET\OMEN\MSGS
  341. PCBPACK /AREA:52 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  342. IF ERRORLEVEL 99 GOTO ERROR
  343. IF L%2 == L52 GOTO EXIT
  344.  
  345. :F53
  346. rem     TURBO PASCAL    E:\RNET\TURBO_P\MSGS
  347. PCBPACK /AREA:53 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  348. IF ERRORLEVEL 99 GOTO ERROR
  349. IF L%2 == L53 GOTO EXIT
  350.  
  351. :F54
  352. rem     EZ READER       E:\RNET\EZ_READR\MSGS
  353. PCBPACK /AREA:54 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  354. IF ERRORLEVEL 99 GOTO ERROR
  355. IF L%2 == L54 GOTO EXIT
  356.  
  357. :F55
  358. rem     QBASIC          E:\RNET\QBASIC\MSGS
  359. PCBPACK /AREA:55 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  360. IF ERRORLEVEL 99 GOTO ERROR
  361. IF L%2 == L55 GOTO EXIT
  362.  
  363. :F56
  364. rem     C LANGUAGE      E:\RNET\C_LANG\MSGS
  365. PCBPACK /AREA:56 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:7 /MAXMSGS:400 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  366. IF ERRORLEVEL 99 GOTO ERROR
  367. IF L%2 == L56 GOTO EXIT
  368.  
  369. :F57
  370. rem     RELAYNET        E:\RNET\RLY_NET\MSGS
  371. PCBPACK /AREA:57 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  372. IF ERRORLEVEL 99 GOTO ERROR
  373. IF L%2 == L57 GOTO EXIT
  374.  
  375. :F58
  376. rem     FIREARMS        E:\RNET\FIREARMS\MSGS
  377. PCBPACK /AREA:58 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  378. IF ERRORLEVEL 99 GOTO ERROR
  379. IF L%2 == L58 GOTO EXIT
  380.  
  381. :F59
  382. rem     ENGINEERS       E:\RNET\ENGINEER\MSGS
  383. PCBPACK /AREA:59 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  384. IF ERRORLEVEL 99 GOTO ERROR
  385. IF L%2 == L59 GOTO EXIT
  386.  
  387. :F60
  388. rem     LANTASTIC       E:\RNET\LANTASTI\MSGS
  389. PCBPACK /AREA:60 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  390. IF ERRORLEVEL 99 GOTO ERROR
  391. IF L%2 == L60 GOTO EXIT
  392.  
  393. :F61
  394. rem     AVIATION        E:\RNET\AVIATION\MSGS
  395. PCBPACK /AREA:61 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  396. IF ERRORLEVEL 99 GOTO ERROR
  397. IF L%2 == L61 GOTO EXIT
  398.  
  399. :F62
  400. rem     TELEMATE        E:\RNET\TELEMATE\MSGS
  401. PCBPACK /AREA:62 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  402. IF ERRORLEVEL 99 GOTO ERROR
  403. IF L%2 == L62 GOTO EXIT
  404.  
  405. :F63
  406. rem     4DOS            E:\RNET\4DOS\MSGS
  407. PCBPACK /AREA:63 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  408. IF ERRORLEVEL 99 GOTO ERROR
  409. IF L%2 == L63 GOTO EXIT
  410.  
  411. :F64
  412. rem     BATCH FILES     E:\RNET\BATCH\MSGS
  413. PCBPACK /AREA:64 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  414. IF ERRORLEVEL 99 GOTO ERROR
  415. IF L%2 == L64 GOTO EXIT
  416.  
  417. :F65
  418. rem     MARKMAIL        E:\RNET\MARKMAIL\MSGS
  419. PCBPACK /AREA:65 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  420. IF ERRORLEVEL 99 GOTO ERROR
  421. IF L%2 == L65 GOTO EXIT
  422.  
  423. :F66
  424. rem     CHESS           E:\RNET\CHESS\MSGS
  425. PCBPACK /AREA:66 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:60 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  426. IF ERRORLEVEL 99 GOTO ERROR
  427. IF L%2 == L66 GOTO EXIT
  428.  
  429. :F67
  430. rem     PROCOMM         E:\RNET\PROCOMM\MSGS
  431. PCBPACK /AREA:67 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  432. IF ERRORLEVEL 99 GOTO ERROR
  433. IF L%2 == L67 GOTO EXIT
  434.  
  435. :F68
  436. rem     MYSTERY         E:\RNET\MYSTERY\MSGS
  437. PCBPACK /AREA:68 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  438. IF ERRORLEVEL 99 GOTO ERROR
  439. IF L%2 == L68 GOTO EXIT
  440.  
  441. :F69
  442. rem     BICYCLE         E:\RNET\BICYCLE\MSGS
  443. PCBPACK /AREA:69 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  444. IF ERRORLEVEL 99 GOTO ERROR
  445. IF L%2 == L69 GOTO EXIT
  446.  
  447. :F70
  448. rem     FIRE/EMS        E:\RNET\FIRE_EMS\MSGS
  449. PCBPACK /AREA:70 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  450. IF ERRORLEVEL 99 GOTO ERROR
  451. IF L%2 == L70 GOTO EXIT
  452.  
  453. :F71
  454. rem     MOTORCYCLE      E:\RNET\MTRCYCLE\MSGS
  455. PCBPACK /AREA:71 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  456. IF ERRORLEVEL 99 GOTO ERROR
  457. IF L%2 == L71 GOTO EXIT
  458.  
  459. :F72
  460. rem     NON PROFIT      E:\RNET\NONPROF\MSGS
  461. PCBPACK /AREA:72 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  462. IF ERRORLEVEL 99 GOTO ERROR
  463. IF L%2 == L72 GOTO EXIT
  464.  
  465. :F73
  466. rem     POLICE          E:\RNET\POLICE\MSGS
  467. PCBPACK /AREA:73 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  468. IF ERRORLEVEL 99 GOTO ERROR
  469. IF L%2 == L73 GOTO EXIT
  470.  
  471. :F74
  472. rem     SPITFIRE BBS    E:\RNET\SPITFIRE\MSGS
  473. PCBPACK /AREA:74 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:60 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  474. IF ERRORLEVEL 99 GOTO ERROR
  475. IF L%2 == L74 GOTO EXIT
  476.  
  477. :F75
  478. rem     ECOLOGY         E:\RNET\ECOLOGY\MSGS
  479. PCBPACK /AREA:75 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  480. IF ERRORLEVEL 99 GOTO ERROR
  481. IF L%2 == L75 GOTO EXIT
  482.  
  483. :F76
  484. rem     PARENTS         E:\RNET\PARENTS\MSGS
  485. PCBPACK /AREA:76 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  486. IF ERRORLEVEL 99 GOTO ERROR
  487. IF L%2 == L76 GOTO EXIT
  488.  
  489. :F77
  490. rem     PCRELAY         E:\RNET\PCRELAY\MSGS
  491. PCBPACK /AREA:77 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  492. IF ERRORLEVEL 99 GOTO ERROR
  493. IF L%2 == L77 GOTO EXIT
  494.  
  495. :F78
  496. rem     CONF. HOSTS     E:\RNET\CONF_HST\MSGS
  497. PCBPACK /AREA:78 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  498. IF ERRORLEVEL 99 GOTO ERROR
  499. IF L%2 == L78 GOTO EXIT
  500.  
  501. :F79
  502. rem     PUBLISHING      E:\RNET\PUBLISH\MSGS
  503. PCBPACK /AREA:79 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  504. IF ERRORLEVEL 99 GOTO ERROR
  505. IF L%2 == L79 GOTO EXIT
  506.  
  507. :F80
  508. rem     BIBLE           E:\RNET\BIBLE\MSGS
  509. PCBPACK /AREA:80 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  510. IF ERRORLEVEL 99 GOTO ERROR
  511. IF L%2 == L80 GOTO EXIT
  512.  
  513. :F81
  514. rem     MENS ISSUES     E:\RNET\MEN\MSGS
  515. PCBPACK /AREA:81 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:7 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  516. IF ERRORLEVEL 99 GOTO ERROR
  517. IF L%2 == L81 GOTO EXIT
  518.  
  519. :F82
  520. rem     MEGAMAIL        E:\RNET\MEGAMAIL\MSGS
  521. PCBPACK /AREA:82 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  522. IF ERRORLEVEL 99 GOTO ERROR
  523. IF L%2 == L82 GOTO EXIT
  524.  
  525. :F83
  526. rem     NET ADMIN.      E:\RNET\NETADMIN\MSGS
  527. PCBPACK /AREA:83 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  528. IF ERRORLEVEL 99 GOTO ERROR
  529. IF L%2 == L83 GOTO EXIT
  530.  
  531. :F84
  532. rem     GEMOLOGY        E:\RNET\GEMOLOGY\MSGS
  533. PCBPACK /AREA:84 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  534. IF ERRORLEVEL 99 GOTO ERROR
  535. IF L%2 == L84 GOTO EXIT
  536.  
  537. :F85
  538. rem     SF SYSOP        E:\RNET\SF_SYSOP\MSGS
  539. PCBPACK /AREA:85 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  540. IF ERRORLEVEL 99 GOTO ERROR
  541. IF L%2 == L85 GOTO EXIT
  542.  
  543. :F86
  544. rem     MUSIC           E:\RNET\MUSIC\MSGS
  545. PCBPACK /AREA:86 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  546. IF ERRORLEVEL 99 GOTO ERROR
  547. IF L%2 == L86 GOTO EXIT
  548.  
  549. :F87
  550. rem     CELLULAR        E:\RNET\CELLULAR\MSGS
  551. PCBPACK /AREA:87 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  552. IF ERRORLEVEL 99 GOTO ERROR
  553. IF L%2 == L87 GOTO EXIT
  554.  
  555. :F88
  556. rem     SHAREWARE       E:\RNET\SHARWARE\MSGS
  557. PCBPACK /AREA:88 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:10 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  558. IF ERRORLEVEL 99 GOTO ERROR
  559. IF L%2 == L88 GOTO EXIT
  560.  
  561. :F89
  562. rem     QEDIT           E:\RNET\QEDIT\MSGS
  563. PCBPACK /AREA:89 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  564. IF ERRORLEVEL 99 GOTO ERROR
  565. IF L%2 == L89 GOTO EXIT
  566.  
  567. :F90
  568. rem     BOATING         E:\RNET\BOATING\MSGS
  569. PCBPACK /AREA:90 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  570. IF ERRORLEVEL 99 GOTO ERROR
  571. IF L%2 == L90 GOTO EXIT
  572.  
  573. :F91
  574. rem     JAPAN           E:\RNET\JAPAN\MSGS
  575. PCBPACK /AREA:91 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  576. IF ERRORLEVEL 99 GOTO ERROR
  577. IF L%2 == L91 GOTO EXIT
  578.  
  579. :F92
  580. rem     STRANGE         E:\RNET\STRANGE\MSGS
  581. PCBPACK /AREA:92 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  582. IF ERRORLEVEL 99 GOTO ERROR
  583. IF L%2 == L92 GOTO EXIT
  584.  
  585. :F93
  586. rem     SYS. ANALYSIS   E:\RNET\SYSANAL\MSGS
  587. PCBPACK /AREA:93 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  588. IF ERRORLEVEL 99 GOTO ERROR
  589. IF L%2 == L93 GOTO EXIT
  590.  
  591. :F94
  592. rem     CLIPPER         E:\RNET\CLIPPER\MSGS
  593. PCBPACK /AREA:94 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:20 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  594. IF ERRORLEVEL 99 GOTO ERROR
  595. IF L%2 == L94 GOTO EXIT
  596.  
  597. :F95
  598. rem     SCUBA           E:\RNET\SCUBA\MSGS
  599. PCBPACK /AREA:95 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  600. IF ERRORLEVEL 99 GOTO ERROR
  601. IF L%2 == L95 GOTO EXIT
  602.  
  603. :F96
  604. rem     NINTENDO        E:\RNET\NINTENDO\MSGS
  605. PCBPACK /AREA:96 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  606. IF ERRORLEVEL 99 GOTO ERROR
  607. IF L%2 == L96 GOTO EXIT
  608.  
  609. :F97
  610. rem     CIPCUG (local)  E:\LOCAL\CIPCUG\MSGS
  611. PCBPACK /AREA:97 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  612. IF ERRORLEVEL 99 GOTO ERROR
  613. IF L%2 == L97 GOTO EXIT
  614.  
  615. :F98
  616. rem     HISTORY         E:\RNET\HISTORY\MSGS
  617. PCBPACK /AREA:98 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  618. IF ERRORLEVEL 99 GOTO ERROR
  619. IF L%2 == L98 GOTO EXIT
  620.  
  621. :F99
  622. rem     MAGICK          E:\RNET\MAGICK\MSGS
  623. PCBPACK /AREA:99 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  624. IF ERRORLEVEL 99 GOTO ERROR
  625. IF L%2 == L99 GOTO EXIT
  626.  
  627. :F100
  628. rem     MIDI            E:\RNET\MIDI\MSGS
  629. PCBPACK /AREA:100 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  630. IF ERRORLEVEL 99 GOTO ERROR
  631. IF L%2 == L100 GOTO EXIT
  632.  
  633. :F101
  634. rem     VENDORS         E:\RNET\VENDORS\MSGS
  635. PCBPACK /AREA:101 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  636. IF ERRORLEVEL 99 GOTO ERROR
  637. IF L%2 == L101 GOTO EXIT
  638.  
  639. :F102
  640. rem     SMALL BUSINESS  E:\RNET\SMAL_BUS\MSGS
  641. PCBPACK /AREA:102 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  642. IF ERRORLEVEL 99 GOTO ERROR
  643. IF L%2 == L102 GOTO EXIT
  644.  
  645. :F103
  646. rem     GENETICS        E:\RNET\GENETICS\MSGS
  647. PCBPACK /AREA:103 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  648. IF ERRORLEVEL 99 GOTO ERROR
  649. IF L%2 == L103 GOTO EXIT
  650.  
  651. :F104
  652. rem     ANSI            E:\RNET\ANSI\MSGS
  653. PCBPACK /AREA:104 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  654. IF ERRORLEVEL 99 GOTO ERROR
  655. IF L%2 == L104 GOTO EXIT
  656.  
  657. :F105
  658. rem     HORROR          E:\RNET\HORROR\MSGS
  659. PCBPACK /AREA:105 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:14 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  660. IF ERRORLEVEL 99 GOTO ERROR
  661. IF L%2 == L105 GOTO EXIT
  662.  
  663. :F106
  664. rem     SOBB            E:\RNET\SOBB\MSGS
  665. PCBPACK /AREA:106 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  666. IF ERRORLEVEL 99 GOTO ERROR
  667. IF L%2 == L106 GOTO EXIT
  668.  
  669. :F107
  670. rem     REMEMBER WHEN   E:\RNET\REMEMBER\MSGS
  671. PCBPACK /AREA:107 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:30 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  672. IF ERRORLEVEL 99 GOTO ERROR
  673. IF L%2 == L107 GOTO EXIT
  674.  
  675. :F108
  676. rem     BRIEF           E:\RNET\BRIEF\MSGS
  677. PCBPACK /AREA:108 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  678. IF ERRORLEVEL 99 GOTO ERROR
  679. IF L%2 == L108 GOTO EXIT
  680.  
  681. :F109
  682. rem     GAMBLING        E:\RNET\GAMBLING\MSGS
  683. PCBPACK /AREA:109 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  684. IF ERRORLEVEL 99 GOTO ERROR
  685. IF L%2 == L109 GOTO EXIT
  686.  
  687. :F110
  688. rem     PC ASSEMBLY     E:\RNET\PC_ASSY\MSGS
  689. PCBPACK /AREA:110 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:40 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  690. IF ERRORLEVEL 99 GOTO ERROR
  691. IF L%2 == L110 GOTO EXIT
  692.  
  693. :F111
  694. rem     FRENCH          E:\RNET\FRENCH\MSGS
  695. PCBPACK /AREA:111 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  696. IF ERRORLEVEL 99 GOTO ERROR
  697. IF L%2 == L111 GOTO EXIT
  698.  
  699. :F112
  700. rem     SPANISH         E:\RNET\SPANISH\MSGS
  701. PCBPACK /AREA:112 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:60 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  702. IF ERRORLEVEL 99 GOTO ERROR
  703. IF L%2 == L112 GOTO EXIT
  704.  
  705. :F113
  706. rem     SCANNERS        E:\RNET\SCANNERS\MSGS
  707. PCBPACK /AREA:113 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  708. IF ERRORLEVEL 99 GOTO ERROR
  709. IF L%2 == L113 GOTO EXIT
  710.  
  711. :F114
  712. rem     HDTV            E:\RNET\HDTV\MSGS
  713. PCBPACK /AREA:114 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  714. IF ERRORLEVEL 99 GOTO ERROR
  715. IF L%2 == L114 GOTO EXIT
  716.  
  717. :F115
  718. rem     SYSOPS ASSOC.   E:\RNET\SYS_ASSC\MSGS
  719. PCBPACK /AREA:115 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:90 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  720. IF ERRORLEVEL 99 GOTO ERROR
  721. IF L%2 == L115 GOTO EXIT
  722.  
  723. :F116
  724. rem     PHOBIAS         E:\RNET\PHOBIAS\MSGS
  725. PCBPACK /AREA:116 /CAP:C:\PCB\PACKMSGS.LOG /DAYS:120 /MAXMSGS:300 /KILLBAK /KILLDUPS /NOSIZE /PURGE /FAST /NOCALLER
  726. IF ERRORLEVEL 99 GOTO ERROR
  727. IF L%2 == L116 GOTO EXIT
  728. GOTO EXIT
  729.  
  730.  
  731. :ERROR
  732. echo &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  733. echo &&&& AN ERROR OCCURRED.. CHECK PACKMSGS.LOG &&&&
  734. echo &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  735. goto end
  736.  
  737.  
  738. :EXIT
  739. echo >>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<
  740. echo >>>>>>>  MESSAGE BASES PACKED OK <<<<<<<<<<
  741. echo >>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<
  742. goto end
  743.  
  744. :END
  745.  
  746. echo    **********************************
  747. echo    ***** END OF MESSAGE PACKING *****
  748. echo    **********************************
  749.  
  750. cd\pcb2
  751.